home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_2210.txt < prev    next >
Text File  |  1990-04-09  |  4KB  |  182 lines
  1. -- card: 2210 from stack: in
  2. -- bmap block id: 2537
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: covercard
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A000
  11. -- rect: left=0 top=225 right=284 bottom=272
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 14767 / 14767
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: About In/Out Demo
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card "credits"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A000
  30. -- rect: left=271 top=225 right=284 bottom=512
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 5472 / 5472
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Start In/Out Demo
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to card SLBnames
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 4 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=0 top=0 right=226 bottom=512
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: New Button
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go to card "SLBnames"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 5 (button)
  66. -- low flags: 00
  67. -- high flags: 2000
  68. -- rect: left=380 top=306 right=335 bottom=425
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 2442 / 2442
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: 
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   set lockscreen to true
  80.   go to card "Help"
  81.   show bg field "Text1"
  82.   hide card button "OK"
  83.   unlock screen with visual effect dissolve
  84.  
  85. end mouseUp
  86.  
  87.  
  88. -- part 6 (button)
  89. -- low flags: 00
  90. -- high flags: 2000
  91. -- rect: left=424 top=308 right=333 bottom=468
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 10668 / 10668
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: 
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   global IOExit
  103.   visual effect dissolve to black
  104.   visual effect dissolve
  105.   go to IOExit
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 7 (button)
  111. -- low flags: 00
  112. -- high flags: 2000
  113. -- rect: left=467 top=305 right=334 bottom=512
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 9632 / 9632
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: 
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  125.   if it = "Cancel"
  126.   then
  127.   exit mouseUp
  128. end if
  129.  
  130. if it = "Home"
  131. then
  132. visual effect iris open
  133. domenu home
  134. else
  135.   show menubar
  136.   doMenu "Quit HyperCard"
  137. end if
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 8 (field)
  143. -- low flags: 81
  144. -- high flags: 0007
  145. -- rect: left=120 top=4 right=225 bottom=507
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 0
  149. -- font id: 14
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 17
  153. -- part name: HelpText
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   global FrontField
  157.   put "FS" into FrontField
  158.  
  159.   set lockscreen to true
  160.   --  set the scroll of background field "text1" to 0
  161.   set the scroll of card field "HelpText" to 0
  162.   hide card field "HelpText"
  163.   --  show background field "text1"
  164.   hide card button "boils"
  165.   unlock screen with visual effect dissolve
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 10 (button)
  171. -- low flags: 80
  172. -- high flags: 0002
  173. -- rect: left=0 top=225 right=284 bottom=512
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: boils
  182.